home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgl.dir / Internal_4_saveB.ls < prev    next >
Encoding:
Text File  |  2001-09-04  |  491 b   |  29 lines
  1. property myName, meSprite, meMember, meHmember
  2. global gmObject
  3.  
  4. on beginSprite me
  5.   meSprite = sprite(me.spriteNum)
  6.   meMember = meSprite.member
  7.   myName = meSprite.member.name
  8.   meHmember = member(myName & "h", 2)
  9. end
  10.  
  11. on mouseUp me
  12.   if the frameLabel = "save" then
  13.     gmObject.reMove()
  14.     go(gmObject.main)
  15.   else
  16.     gmObject.saveFace()
  17.   end if
  18. end
  19.  
  20. on mouseEnter me
  21.   meSprite.member = meHmember
  22.   updateStage()
  23. end
  24.  
  25. on mouseLeave me
  26.   meSprite.member = meMember
  27.   updateStage()
  28. end
  29.